home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE WinUpd Text.xpl < prev    next >
Text File  |  2004-02-07  |  1KB  |  50 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH 1"="Internet\Internet Explorer\Updates"
  5. "UIPATH 2"="Internet\Internet Explorer\Appearance"
  6. "NAME"="Window Update Menu Entry Text"
  7. "VERSION"="1.01"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Text"
  10. "DESCRIPTION 1"="Internet Explorer contains a direct link to Windows Update inside the "Tools" menu. You might wish to change the text of this link to a customized name which can be done with this setting."
  11. "DESCRIPTION 2"="Please remember to restart Internet Explorer when changing this item so the entered text is visible."
  12. "DESCRIPTION 3"="To restore the default link name, simply clear the field."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="from: Windows XP and 2000 Tips & Tricks UPDATE, January 6, 2003"
  17.  
  18.  
  19. sV1="HKCU\Software\Policies\Microsoft\Internet Explorer\Windows Update Menu Text"
  20.  
  21. Sub Plugin_Initialize  
  22.  i=RegReadValue(sV1)
  23.  if i=1 then 
  24.     SetUIElement 1,true
  25.  end if
  26. End Sub
  27.  
  28. Sub Plugin_CheckData(ElementIndex)
  29. End Sub
  30.  
  31. Sub ReadSetting
  32. End Sub
  33.  
  34. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  s=GetUIElement(1)
  36.  
  37.  if len(s)=0 then
  38.     'restore original    
  39.     If RegValueExists(sV1) then Call RegDeleteValue(sV1)
  40.       
  41.  else
  42.     'apply new one
  43.     Call RegWriteValue(sV1,s,1)
  44.  end if
  45.  
  46. End Sub
  47.  
  48. Sub Plugin_Terminate 
  49. End Sub
  50.